DEFINITION MODULE MyKindOfProgrammers;
FROM People IMPORT Programmer, LanguageName;

CLASS Modula2Programmer;
  INHERIT Programmer;
  compilerVendor :ARRAY [0..2] OF CHAR;
END Modula2Programmer;

END MyKindOfProgrammers.
